home *** CD-ROM | disk | FTP | other *** search
/ IRIX Base Documentation 2002 November / SGI IRIX Base Documentation 2002 November.iso / usr / share / catman / p_man / cat3 / f90 / random_seed.z / random_seed
Encoding:
Text File  |  2002-10-03  |  2.0 KB  |  48 lines
  1. RANDOM_SEED(3I)                                       Last changed: 4-13-99
  2.  
  3.  
  4. NNAAMMEE
  5.      RRAANNDDOOMM__SSEEEEDD - Restarts or queries the pseudorandom number generator
  6.  
  7. SSYYNNOOPPSSIISS
  8.      CCAALLLL RRAANNDDOOMM__SSEEEEDD (([[SSIIZZEE==]_s_i_z_e] [,,[PPUUTT==]_p_u_t] [,,[GGEETT==]_g_e_t]))
  9.  
  10. IIMMPPLLEEMMEENNTTAATTIIOONN
  11.      UNICOS, UNICOS/mk, IRIX systems
  12.  
  13.      CF90, MIPSpro 7 Fortran 90
  14.  
  15. SSTTAANNDDAARRDDSS
  16.      Fortran
  17.  
  18. DDEESSCCRRIIPPTTIIOONN
  19.      The RRAANNDDOOMM__SSEEEEDD intrinsic subroutine restarts or queries the
  20.      pseudorandom number generator used by RRAANNDDOOMM__NNUUMMBBEERR.  It accepts the
  21.      following arguments (note that there must be exactly one argument or
  22.      no arguments present):
  23.  
  24.      _s_i_z_e      Must be scalar and of type integer.  It is an output
  25.                argument.  It is set to the number _N of integers that the
  26.                processor uses to hold the value of the seed.
  27.  
  28.      _p_u_t       Must be an integer array of rank one and _s_i_z_e >= _N.  It is
  29.                an input argument.  It is used to set the seed value.
  30.  
  31.      _g_e_t       Must be an integer array of rank one and _s_i_z_e >= _N.  It is
  32.                an output argument.  It is set to the current value of the
  33.                seed.
  34.  
  35.      The name of this intrinsic cannot be passed as an argument.
  36.  
  37. EEXXAAMMPPLLEESS
  38.           CALL RANDOM_SEED                          ! initization of seed
  39.           CALL RANDOM_SEED(SIZE = K)                ! Sets K = N
  40.           CALL RANDOM_SEED(PUT = SEEDARRAY(1:K))    ! Set user seed
  41.           CALL RANDOM_SEED(GET = OLDSEED(1:K))      ! Get current seed
  42.  
  43. SSEEEE AALLSSOO
  44.      RRAANNDDOOMM__NNUUMMBBEERR(3I)
  45.  
  46.      _I_n_t_r_i_n_s_i_c _P_r_o_c_e_d_u_r_e_s _R_e_f_e_r_e_n_c_e _M_a_n_u_a_l for the printed version of this
  47.      man page.
  48.